home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / dev / basic / RIBlitzLibs.lha / riblitzlibs / examples / Anim-test.asc next >
Encoding:
Text File  |  1994-10-23  |  690 b   |  48 lines
  1. ;RIAnim library test program
  2. ;By Stephen McNamar
  3.  
  4.  
  5. ;Please insert the name of your animation here!
  6. fil$=""
  7. suc.l=BLoad(fil$,0)   ; Command from FUNC-library
  8.  
  9. BitMap 0,320,256,6
  10. BitMap 1,320,256,6
  11.  
  12. Use BitMap 0
  13. BitMapOutput 0
  14.  
  15. hasanim.l=RIAnimInit(Start(0),0,0,ADDValue(0,0,0))
  16. If hasanim=0
  17.   DefaultOutput
  18.   NPrint "Buggeration"
  19.   MouseWait
  20.   End
  21. EndIf
  22.  
  23. CopyBitMap 0,1
  24.  
  25. VWait 10
  26. BLITZ
  27. InitCopList 0,44,256,$10006,0,32,0
  28. DisplayBitMap 0,0
  29. DisplayPalette 0,0
  30. CreateDisplay 0
  31.  
  32. Use BitMap 0 : BitMapOutput 0
  33. dbuffer.b=1
  34.  
  35. AnimLoop On
  36.  
  37. If hasanim
  38.   Repeat
  39.     BitMapOutput dbuffer
  40.     RINextAnimFrame dbuffer
  41.     DisplayBitMap 0,dbuffer
  42.     dbuffer=1-dbuffer
  43.     VWait
  44.   Until Joyb(0)
  45. EndIf
  46. End
  47.  
  48.